home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 002a / corewar.zip / GEMINI.PRG < prev    next >
Text File  |  1990-07-05  |  384b  |  14 lines
  1. BGN Gemini        ;Self-copying organism
  2.     JMP C
  3. A    DAT 0 
  4. B    DAT Grid_Size+9
  5. C    MOV @A @B    ;Start copying
  6.     CMP A #9    ;Check to see if full program (Length=9) copied
  7.     JMP D        ;If so, exit routine
  8.     ADD #1 A    ;Increment source
  9.     ADD #1 B    ;Increment destination
  10.     JMP C                ;Keep copying
  11. D    MOV #Grid_Size+9 Grid_Size+3    ;Reset data
  12.     JMP Grid_Size+3            ;Trasnfer execution and begin again
  13. END
  14.